(defun double (x) (* 2 x))
(defun rep (f n x) (if (zerop n) x (rep f (1- n) (funcall f x))))
(print (append '(10e puiss de 2 c'est) (list (rep #'double 10 1))))
